home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / MTALERTS.D < prev    next >
Text File  |  1991-06-08  |  2KB  |  61 lines
  1. DEFINITION MODULE mtAlerts;
  2.  
  3. FROM MagicSys   IMPORT  Byte, ByteSet,
  4.                         sWORD, sINTEGER, sCARDINAL, sBITSET,
  5.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  6.  
  7.  
  8. TYPE    Icons =         (Atari,
  9.                          Bomb,
  10.                          Book,
  11.                          Clipboard,
  12.                          CDDisk,
  13.                          Data,
  14.                          Disk,
  15.                          File,
  16.                          Folder, 
  17.                          Graphic,
  18.                          Harddisk,
  19.                          Info,
  20.                          Laser,
  21.                          Printer,
  22.                          Tools,
  23.                          Trash);
  24.  
  25. TYPE    IconPtr =       POINTER TO ARRAY [0..31] OF lCARDINAL;
  26.  
  27.  
  28. PROCEDURE Alert (def: sINTEGER; str: ARRAY OF CHAR): sINTEGER;
  29. (* Alertbox, wie FormAlert, jedoch mit den Spezialitäten von MagicDials 
  30.  * Icon 1 - 3 sind die gewohnten Alert-Icons, Icon 4 aktiviert ein zuvor 
  31.  * mit UserIcon oder SetIcon gesetztes Icon. 
  32.  *)
  33.  
  34. PROCEDURE PosAlert (x, y, def: sINTEGER; str: ARRAY OF CHAR): sINTEGER;
  35. (* Wie Alert, die Alertbox wird jedoch an Position x,y dargestellt
  36.  * (linke obere Ecke)
  37.  *)
  38.  
  39. PROCEDURE MouseAlert (def: sINTEGER; str: ARRAY OF CHAR): sINTEGER;
  40. (* Wie Alert, die Alertbox wird jedoch um die Mausposition zentriert *)
  41.  
  42.  
  43. PROCEDURE SetIcon (icon: Icons);
  44. (* Setzt ein Icon aus der Liste. Das Icon wird benutzt, wenn Alert mit
  45.  * Icon-Nummer 4 aufgerufen wird.
  46.  *)
  47.  
  48. PROCEDURE SetIconColor (color: sINTEGER);
  49. (* Setzt die Farbe des Icons. Damit kann man im Farbmodus wichtige Zustände
  50.  * besonders hervorheben.
  51.  *)
  52.  
  53. PROCEDURE UserIcon (icon: IconPtr);
  54. (* icon sollte auf einen ARRAY [0..31] OF lCARDINAL zeigen, der die Bitmaske
  55.  * des Icons enhält.  Bei Aufruf von Alert mit Icon-Nummer 4 wird dieses
  56.  * Icon angezeigt
  57.  *)
  58.  
  59. END mtAlerts.
  60.                                
  61.